﻿
Public Enum EShow
    MikeConnell = 0
    ShaneWillard = 1
    Chinese = 2
End Enum

Partial Class Tags
    Inherits CSearchPage

#Region "Menu"
    Protected Overrides ReadOnly Property TopPanel As System.Web.UI.WebControls.PlaceHolder
        Get
            Return plhTopLinks
        End Get
    End Property
    Protected Overrides ReadOnly Property SubPanel As System.Web.UI.WebControls.PlaceHolder
        Get
            Return plhSubLinks
        End Get
    End Property
#End Region

#Region "Querystring"
    Public ReadOnly Property Show As EShow
        Get
            Return CWeb.RequestInt("p", 0)
        End Get
    End Property
#End Region

    Protected Overrides Sub PageInit()
        Select Case Show
            Case EShow.MikeConnell : lnkMikeConnell.CssClass = "selected"
            Case EShow.ShaneWillard : lnkShaneWillard.CssClass = "selected"
            Case EShow.Chinese : lnkChinese.CssClass = "selected"
        End Select
        Select Case Show
            Case EShow.MikeConnell : plhMikeConnell.Visible = True
            Case EShow.ShaneWillard : plhShaneWillard.Visible = True
            Case EShow.Chinese : plhChinese.Visible = True
        End Select
    End Sub

End Class
